i) ) 

f) ; TERMINAL.ASM APRIL 10, 1982 ^ 

; THIS PROGR^^M WAS ORIGINALLY DEVELOPED BY THE SMP*LL SYSTEMS 

f) ; GROUP OF THE INSTITUTE OF COMPUTER SCIENCE, UNIVERSITY OF GUELPH, ' ) 

; COPYRIGHT 1979 BY DON GENNER. 

; ADAPTED TO RUN IN A MACHINE INDEPENDENT CP/M ENVIRONT-IENT 

i) ; BY JOHN WILSON. , _ ) 

MODIFIED BY J. LAW, DEPT. OF PHYSICS, UNIVERSITY OF GUELPH, 

; WITH DON GENNER*8 HELP. 

f) ; EXTENSIVELY MODIFIED TO BE MORE NEARLY HOST INDEPENDENT, ^ 

; TO RECEIVE INTO A BUFFER, TO SEND BY LOGICAL DISK SECTOR, 

; EXPANDED LOCAL MODE, TO WORK WITH STANDARD BDOS, AND MANY OTHERS 

€) ; BY GEORGE CORLISS, DEPT. OF MATH., MARQUETTE UNIVERSITY. ) 

; MODIFIED FOR SLOW PRINTER BY J. GLEm BROOKSHEAR, MARQUETTE 

; UNIVERSITY. 

© ; MODIFIED FOR RECEIVER BUFFER OVERFLOW BY J. GLENN BROOKSHEAR ) 

; MARQUETTE UNIVERSITY. 

•) I :) 

DOCUMENTATION AND INSTRUCTIONS ARE IN FILE TERMINAL.DOC 

f) ;----— -——... ) 


i) 

0000 « 

BASE 

EQU 

OOOOH 


) 


0100 * 

USER 

EQU 

BASE+IOOH 



005C - 

FCB 

EQU 

BASE+005CH 


€) 

OEOO = 

STACK 

EQU 

user+odooh 

) 


OFOO = 

BUFF 

EQU 

USER+OEOOH 



ODOO = 

PRTBUF 

EQU 

USER+OCOOH 


€) 

ODOO = 

OVFLBF 

EQU 

USER+OCOOH 

3 


0000 = 

CPM 

EQU 

BASE 




0005 = 

BDOS 

EQU 

BASE+0005H 


O 


m 

t 




.) 


0001 = 

CTLA 

EQU 

OlH 




0002 = 

CTLB 

EQU 

02H 



• 

0003 = 

CTLC 

EQU 

03H 


3 


0005 = , 

CTLE 

EQU 

05H 




0007 =/ 

BEL 

EQU 

07H 

;CTRL G 


€) 

0008/^ 

BS 

EQU 

OSH 

;BACKSPACE = CTRL H 

3 


oooy = 

TAB 

EQU 

09H 

;CTRL I 



OpOA * 

LF 

EQU 

OAH 

;LINE FEED = CTRL J 


i) 

0OOC * 

FF 

EQU 

OCH 

;FORM FEED = CTRL L 

J 


OOOD = 

CR 

EQU 

ODH 

?CTRL M 



0010 = 

CTLP 

EQU 

lOH 



• 

0011 = 

XON 

EQU 

IIH 

;CRTL Q 

3 


0013 = 

XOFF 

EQU 

13H 

; CTRL S 



0019 = 

CTLY 

EQU 

19H 

;CTRL Y 


• 

OOIA = 

EOD 

EQU 

lAH 

;CP/M END OF FILE = CTRL Z 

3 


OOIB = 

ESC 

EQU 

IBH 

; ESCAPE 



007F = 

DEL 

EQU 

7FH 


V 

• 


• 

9 




3 






- begin 


• 

0100 

t 

ORG 

USER 




0100 C3 B 501 


JMP 

ENTER 


. ._ . _. .A _._ _. _ 


0103 01 

HOSTON 

DB 

OlH 



• 

0104 OOOD 

HEAD 

DW 

PRTBUF 

j 

,) 


0106 OOOD 

TAIL 

DW 

PRTBUF 


1 


0108 00 

BAKLOG 

DB 

00 


1 


OOCO = 

STOPLMT 

EQU 

OCOH 


) 


0020 = 

STRTLMT 

EQU 

2 OH 










HOST DEPENDENCIES: 


0109 

0D24 CRMSG 

DB 

CR,» $ * ;CARRIAGE RETURN MESSAGE 


0008 

= BADBS 

EQU 

BS ;WRONG BS/DEL CHAR FOR HOST 


007F 

= GOODBS 

EQU 

DEL ;CORRECT 

BS/DEL CHAR FOR HOST 


0DOD 

HSTEOL 

E^ 

GR ;HOST END OF LINE 


OOIA 

= HSTEOD 

EQU 

EOD ;HOST END OF FILE 


OlOB 

= HOSTBF 

EQU 

$ ;INITIALIZED FOR SIGMA 9 


OlOB 

0D24333435HGO 

DB 

CR,•$•,*345* 

START HOST 


0110 

1124333435HREC 

DB 

XON,*$*,*345* 

SET UP HOST TO BEGIN 

RECEIVING 

0115 

1B46132435HCLOSE 

DB 

ESC,*F*,XOFF,*$*,*5* 

CLOSE HOST FILE AFTER 

REC. 

OllA 

1B48243435HSTOP 

DB 

ESC,*H*,*$*,*45* 

HOST, STOP SENDING ME 

STUFF 

OllF 

363237342CLONMSG 

DB 

* 6274,BROOKSHEARG *,CR 



0130 

4548420D54 

DB 

*EHB*,CR,*T 37,0*,CR,»$* 



013C 

3031323334 

DB 

*01234567890* 



0147 

4F46460D24OFFMSG 

DB 

*OFF*,CR,*$*,*6789012345 



0156 

1B480D1951HNOSND 

DB 

ESC,*H*,CR,CTLY,*Q*,CR,*J 

?*,*890* 


0160 

= VAXMSG 

EQU 

$ 

VAX-11 MESSAGES START HERE. 

0160 

1124333435VHGO 

DB 

XON,*$*,*345* 

• START HOST 


0165 

2432333435VHREC 

DB 

*$*,*2345* 

SET UP HOST TO BEGIN 

RECEIVING 

016A 

1A2 433343 5VHCLOSE 

DB 

EOD,*$*,*345* 

CLOSE HOST FILE AFTER 

REC • 

016P 

1324333435VHSTOP 

DB 

XOFF,*$*,*345* 

HOST, STOP SENDING ME 

STUFF 

0174 

363237340DVLONMSG 

DB 

*6274*,CR,*EHB*,CR 



017D 

5345542054 

DB 

* SET TERM/HOSTSYNC *,CR,* $ * 


0190 

3930313233 

DB 

*901234567890* 



019C 

4C4F474F5 5VOFFMSG 

DB 

*LOGOUT*,CR,*$*,*9012345 



OlAB 

1303243435VHNOSND 

DB 

XOFF,CTLC,*$*,*4567890* 




PROGRAM LAYOUT 
MAIN PROGRAM 

I/O ROUTINES CONIO, PRNT, SOUT 
SPECIAL CONTROL CODE HANDLERS 

SWCHPT, CRTOUT, TRADE, LOCAL 
SUBROUTINES FOR LOCAL 

DSKDIR, HELP, LOGON, OFF, PRINTR, RECEIVE, SEND 
CP/M BDOS CALLS 


01B5 

210D00 

ENTER 

LXI 

H,0 

01B8 

39 


DAD 

SP 

01B9 

22FE0E 


SHLD 

STACK+254 

OIBC 

31FE0E 


LXI 

SP,STACK+254 


MVI 

A,83H 

; THIS BLOCK USED TO INITIALIZE MODEM 

OUT 

330Q+3 

;PORT ON HEATH H8/H89 MACHINES TO 

MVI 

A,3 

;TO 300 BAUD, 8 DATA DITS, NO PARITY, 

OUT 

330Q+4 

;AND 2 STOP BITS, 

MVI 

A,80H 


OUT 

330Q 


MVI 

A , 1 


OUT 

330Q+1 


MVI 

A,3 


OUT 

330Q+3 


XRA 

A 


OUT 

330Q+1 



OIBF C3C901 


JMP TERMINAL 











01C2 2AFE0E EXIT LHLD STACK4-254 
01C5 F9 SPHL 

01C6 G30000 JMP CPM 

; 


BEam miN PROGRAM 


TERMINAL: 


01C9 

1ID801 

LXI 

D,VERMSG 

OICC 

CD820C 

GALL 

STRINGF 

OICF 

11F701 

LXI 

D,TMESS 

01D2 

CD820C 

CALL 

STRINGF 

01D5 

C30D02 

JMP 

TERM2 

01D8 

0D0A544552VERMSG 

DB 

GR,LF,'TERMINAL PROGRAM VER, 

01F7 

0DpA544552TMESS 

• 

DB 

CR,LF,'TERMINAL MODE',CR,LF,LF,' 

02 OD 

CD8P02 TERM2 

CALL 

CONIO ; ANYTHING FROM TERP4INAL? 

0210 

CA4802 

JZ 

SGET ;NO - MOVE ON 

0213 

5F 

MOV 

E,A ;YES - LOAD E 


CR,LF, 

$’ 



PROCESS SPECIAL CONTROL CHARACTERS 

P TOGGLE PRINTER ON/OFF 

A ENTER LOCAL MODE 

B SET BELL TO RING ON NEXT HOST CHAR 

C RETURN TO CP/M 

E TOGGLE CRT ECHO ON/OFF 

ESC FORCE SEND NEXT CHAR TO HOST 


0214 

FElO 


CPI 

CTLP 

0216 

CA1203 


JZ 

SWCHPT 

0219 

FEOl 


CPI 

CTLA 

02 IB 

CA3C03 


JZ 

LOCAL 

021E 

FE02 


CPI 

CTLB 

0220 

CA2003 


JZ 

SWBEL 

0223 

FE03 


CPI 

CTLC 

0225 

CAC201 


JZ 

EXIT 

0228 

FE05 


-CPI 

CTLE 

022A 

CA2903 


JZ 

SWECHO 

022D 

FEIB 


CPI 

ESC 

022F 

CA3503 


JZ 

FORSND 

0232 

FE08 


CPI 

BADBS 

0234 

CAE703 


JZ 

TRADE 

0237 

D5 

SPOT 

PUSH 

D 

0238 

CD660C 


CALL 

PUNOUTF 

023B 

D1 


POP 

D 

023C 

3A3403 


LDA 

ECHO 

023F 

FEOO 


CPI 

0 

0241 

C24802 


JNZ 

SGET 

0244 

7B 


MOV 

A,E 

0245 

CD9602 

DPUTB 

CALL 

PRNT 

0248 

CD4F0C 

SGET 

CALL 

RDRINPF 

024B 

CA6202 


JZ 

CKPRT 

024E 

CD9602 


CALL 

PRNT 

0251 

3A2803 


LDA 

BELWAK 

0254 

FEOO 


CPI 

0 

0256 

CA6202 


JZ 

CKPRT 

0259 

1E07 


MVI 

E,BEL 

025B 

CD4A0C 


CALL 

CONOUTF 

02 5E 

AF 


XRA 

A 

02 5F 

322803 


STA 

BELWAK 

0262 

3A0801 

CKPRT 

LDA 

BAKLOG 

0265 

FEOO 


CPI 

00 


; IF P 
; IF A 
? IS B 
; IF C 
; IF E 
; IF ESCAPE 

; IF WRONG BS/DEL FOR HOST 
;SEND TO HOST 

; SHOULD CHARACTERS BE SENT TO CRT? 
;0 - YES, 1 ~ NO 

;SEND TO CONSOLE 
; ANYTHING FROM HOST? 

;NO. CHECK PRINT BUFFER 
;ECHO IT 

;IS BELL SWITCH SET? 

;IF NOT SET 
;RING BELL 

; RESET BELL SV7ITCH 
; ANYTHING IN PRINT BUFFER? 








UZt>/ JZ Tb’KM^ ; NU, TKY THiKiVllNAL 


% 

026A CD750C 


CALL 

PRTSTAT 

;PRINTER BUSY? 

3 


026D FEOO 

CPI 

00 





026F CA0D02 


JZ 

TERM2 

;YES. TRY TERMINAL 



0272 2A0401 


LHLD 

HEAD 

;SEND CHARACTER TO PRINTER 

9 


0275 5E 


MOV 

E,M 

;AND SHIFT HEAD POINTER. 



0276 2C 


INR 

L 



9 

0277 220401 


SHLD 

HEAD 


9 


027A CD700C 


CALL 

LSTOUTF 



027D 3A0801 


LDA 

BAKLOG 

;IF BACKLOG HAS DROPPED 


9 

0280 3D 


DCR 

A 

?TO START LIMIT THEN TELL 

• 


0281 320801 

STA 

BAKLOG 

;HOST TO START SENDING AGAIN. 



0284 FE20 


CPI 

STRTLMT 



• 

0286 C20D02 


JNZ 

TERM2 


• 


0289 CD0003 


CALL 

STRTHST 




028C C30D02 


JMP 

TERM2 

;CHECK ON TERMINAL 


• 


/ 



TXTr\ r\T? l^ifTlTXT T>‘D/^^T3 7VA/r 

• 






HiINU Ur IrKUaK/^iyi 


• 

028F lEFF 

9 

• 

CONIO 

MVI 

E, OFFH 

;DIRECT CONSOLE INPUT 



0291 CD7A0C 


CALL 

DIRCONF 

;(A) = CHAR OR 00 IF NO CHAR 


• 

0294 B7 


ORA 

A ;FORCE 

FLAG 



0295 C9 


RET 




n 

0296 E5 

PRNT 

PUSH 

H 

;PRINT CHAR (A) AT CONSOLE 

• 


0297 D5 


PUSH 

D 




0298 5F 


MOV 

E,A 



9 

0299 FEOD 


CPI 

HSTEOL 

;END OF LINE? 

• 


029B CAB102 


JZ 

PRNT2 




029E D5 


PUSH 

D 




029F CD4A0C 


CALL 

CONOUTF 




02A2 D1 


POP 

D 




02A3 3A1F03 


LDA 

AUXON 



9 

02A6 FEOO 


CPI 

0 


9 


02A8 C2AE02 


JNZ 

PRNTl 

;AND PERHAPS AT THE PRINTER 



02AB CDD802 


CALL 

LIST 



• 

02AE Dl 

PRNTl 

POP 

D 


- ^ 


02AF El 


POP 

H 




02B0 C9 


RET 




• 


• 

9 




• 


02B1 3A1F03 

PRNT2 

LDA 

AUXON 




02B4 FEOO 


CPI 

0 



• 

02B6 C2CC02 


JNZ 

PRNT3 


9 


02B9 11D502 


LXI 

D,CRLF 




02BC CD820C 


CALL 

STRINGF 



• 

02BF lEOD 


MVI 

E,CR 


9 


02C1 CDD802 


CALL 

LIST 




02C4 lEOA 


MVI 

E,LF 



• 

02C6 CDD802 


CALL 

LIST 


' • 


02C9 C3AE02 


JMP 

PRNTl 




02CC 11D502 

PRNT3 

LXI 

D,CRLF 



• 

02CF CD820C 


CALL 

STRINGF 


9 


02D2 C3AE02 


JMP 

PRNTl 

, 



02D5 0D0A24 

CRLF 

DB 

CR,LF,'$ 

1 




• 

9 




9 



; PLACE CONTENTS OF E REGISTER IN PRINT BUFFER. 




; IF 

BACKLOG 

IS THEN COH, TELL HOST TO WAIT. 




• 

9 




9 



f CAUTION*** 

HOST WAIT 





vJ X ^INXj w oX-iXj XvX!i v7X.^ X Xjxx • 


W - 

02D8 2A0601 

LIST 

LHLD 

TAIL 


9 


02DB 73 


MOV 

M,E 




02DC 2C 


INR 

L 



J 

02DD 220601 


SHLD 

TAIL 


9 


02E0 3A0801 


LDA 

BAKLOG 











02E3 

3C 

INR 

A 



02 E4 

320801 

STA 

BAKLOG 



02E7 

FECO 

CPI 

STOPLMT 



02E9 

CO 

RNZ 




02EA 

CDEE02 

CALL 

STOPHST 



02ED 

C9 

RET 




02EE 

3A0301 

STOPHST LDA 

HOSTON 

;IS HOST ALREADY 

STOPPED? 

02F1 

FEOO 

CPI 

00 



02F3 

C8 

RZ 


;YES. RETURN 


02F4 

lllAOl 

LXI 

D,HSTOP 

;NO. THEN STOP 

IT. 

02F7 

CD870A 

CALL 

MSGHOST 



02FA 

3E00 

MVI 

A, 00 



02FC 

320301 

STA 

HOSTON 



02FF 

C9 

RET 




0300 

3A0301 

STRTHST LDA 

HOSTON 

;IS HOST ALREADY 

STARTED? 

0303 

FEOO 

CPI 

00 



0305 

CO 

RNZ 


;YES, RETURN 


0306 

llOBOl 

LXI 

D,HGO 

;NO. THEN START 

IT. 

0309 

CD870A 

CALL 

MSGHOST 



030C 

3E01 

MVI 

A, 01 

* 


030E 

320301 

STA 

HOSTON 



0311 

C9 

RET 





SPECIAL CONTROL CODE HANDLERS 


0312 

3A1F03 

SWCHPT 

LDA 

AUXON 


0315 

47 


MOV 

B,A 


0316 

3E01 


MVI 

A,1 


0318 

90 


SUB 

B 


0319 

321F03 


iSTA 

AUXON 


031C 

C34802 


JMP 

SGET 


031F 

01 

AUXON 

DB 

1 


0320 

3E01 

SWBEL 

MVI 

A,1 

;SET BELL SWITCH 

0322 

322803 


STA 

BELWAK 


0325 

C34802 


JMP 

SGET 


0328 

00 

BELWAK 

DB 

0 


0329 

3A3403 

SWECHG 

LDA 

ECHO 


032C 

EEOl 


XRI 

OlH 


032E 

323403 


STA 

ECHO 


0331 

C34802 


JMP 

SGET 


0334 

01 

ECHO 

DB 

1 ;1 

- NO ECHO, 0 - ECHO TO CRT ^ 

0335 

CD400C 

FORSND 

CALL 

CONINPF 

;FORCE SEND NEXT CHAR TO HOST 

0338 

5F 


MOV 

E,A 


0339 

C33702 


JMP 

SPUT 


033C 

11AB03 

LOCAL 

LXI 

D,LMESS 

;DISPLAY 'LOCAL MODE* 

033F 

CD820C 


CALL 

STRINGF 


0342 

CD400C 


CALL 

CONINPF 


0345 

FEOD 


CPI 

CR 


0347 

CAEF03 


JZ 

HELP 


U34A 

FE03 


GPI 

GTLC 


034C 

CAC201 


JZ 

EXIT 


034F 

E65F 


ANI 

5FH 

;CONVERT TO UPPER CASE 

0351 

D641 


SUI 

•A* 

;SET UP FOR JUMP TABLE 

0353 

FAA203 


JM 

NOTYET 


0356 

FEIA 


CPI 

. lAH 


0358 

F2A203 


JP 

NOTYET 

;IF ASCII «Z^^ 








035B 216E03 


03 5E 

5F 

MOV 

03 5F 

1600 

MVI 

0361 

19 

DAD 

0362 

19 

DAD 

0363 

23 

INX 

0364 

56 

MOV 

0365 

2B 

DCX 

0366 

5E 

MOV 

0367 

EB 

XCHG 

0368 

226C03 

SHLD 

036B 

C36B03 DUMMY 

JMP 


; TABLE OF 

036E 

A203D605C2iFA 

DW 

037C 

EF03A203A2' 

DW 

038C 

EE07A203F9' 

DW 

039A 

D009A203A2' 

9 

DW 

03A2 

11BD03 NOTYET 

LXI 

03A5 

CD820C 

CALL 

03A8 

C33C03 

JMP 

03AB 

0D0A4C4F43LMESS 

DB 

03 BD 

070D0A4E4FYETMSG 

DB 

03D5 

0D0A46494CFMESS 

• 

/ 

DB 

03E7 

• 

1E7F TRADE 

MVI 

03E9 

C33702 

/ 

/ 

JMP 

03 EC 

9 

• 

C3A203 DSKDIR 

JMP 

03EF 

11F803 HELP 

LXI 

03F2 

CD820C 

CALL 

03F5 

C33C03 

JMP 

03F8 

OC 0A0A2 02 OHLPMSG 

DB 

0413 

0942094348 

DB 

0438 

0943094558 

DB 

044D 

0944094449 

DB 

0464 

0945094558 

DB 

0482 

0948094845 

DB 

048F 

094C095345 

DB 

04AA 

094F095345 

DB 

04C6 

095009544F 

DB 

04E4 

0952095245 

DB 

0503 

0953095345 

DB 

051D 

0954095445 

DB 

0533 

0956094348 

DB 

0551 

0957095741 

DB 

0572 

DAO5284C29 

DB 

0597 

0928452920 

DB 

05B8 

11D502 LOGON 

LXI 

05BB 

CD820C 

CALL 

05BE 

lllFOl 

LXI 

05C1 

CD870A 

CALk 


H 

D, M 
H 

E, M 

DUMMY+1 

DUMMY 


;LB OF INDEX 
;HB OF INDEX 

;ADD INDEX TO BASE OF JUMP TABLE 
; TWICE BECAUSE 2 BYTES/WORD 
;ADDRESS HIGH BYTE FIRST 
;HB OF JUMP ADDRESS 

;LB OF JUMP ADDRESS 

;JUMP ADDRESS TO HL 

;FILL IN JUMP ADDRESS 

;JUMP ADDRESS IS SUPPLIED ABOVE 


A BCD E F G 

NOT YET , CHGBUF , EX IT, D SKDIR , TERMINAL, NOTYET , NOT YET 
HI J K LM NO 

HELP,NOTYET,NOTYET,NOTYET,LOGON,NOTYET,NOTYET,OFF 
P Q R S T U V 

PRINTR,NOTYET,RECEIVE,SEND,TERMINAL,NOTYET,VAXHST 
W X Y Z 

WAIT,NOTYET,NOTYET,NOTYET 


D,YETMSG 

STRINGF 

LOCAL 

CR,LF,•LOCAL MODE $ * 

BEL,CR,LF,'NOT IMPLEMENTED YET.$* 
CR,LF,'FILE NAME? $* 


E,GOODBS 

SPUT 


;SUBSTITUTE GOOD BS/DEL CHAR 
;FOR A BAD ONE 


SUBROUTINES FOR LOCAL MODE 


NOTYET 

D,HLPMSG 

STRINGF 

LOCAL 

FF,LF,LF,* OPTIONS AVAILABLEs *,CR,LF,LF 

TAB,'B*,TAB,’CHANGE RECEIVING BUFFER SIZE (E)’,CR,LF 

TAB,’C’,TAB,’EXIT TO CP/M (E)’,CR,LF 

TAB,’D’,TAB,’DISK DIRECTORY (L)’,CR,LF 

TAB,’E’,TAB,’EXIT TO TERMINAL MODE (E)’,CR,LF 

TAB,’H’,TAB,’HELP (L)’,CR,LF 

TAB,’L’,TAB,’SEND LOGON TO HOST (E)’,CR,LF 

TAB,’O’,TAB,’SEND LOGOFF TO HOST (E)’,CR,LF 

TAB,’P’,TAB,’TOGGLE PRINTER ON/OFF (L)’,CR,LF 

TAB,’R’,TAB,’RECEIVE FILE FROM HOST (L)’,CR,LF 

TAB,’S’,TAB,’SEND FILE TO HOST (L)’,CR,LF 

TAB,’T’,TAB,’TERMINAL MODE (E)’,CR,LF 

TAB,’V’,TAB,’CHANGE TO VAX-11 MODE (E)’,CR,LF 

TAB,’W’,TAB,’WAIT - SET SENDING DELAY (L)’,CR,LF 

LP,TAB, ’ (L) COMMANDS^ RETUm^ TO LOCAL MODE’ ,CR,KF 

TAB,’(E) COMMANDS EXIT LOCAL MODE’,CR,LF,LF,’$’ 

D,CRLF 
STRINGF 
D,LONMSG 
G 













0 


05C7 

11D502 OFF 

LXI 

D,CRLF 



05CA 

CD820C 

GALL 

STRINGF 



05CD 

114701 

LXI 

D,OFFMSG 



05D0 

CD870A 

GALL 

MSGHOST 



05D3 

C30D02 

JMP 

TERM2 



05D6 

111606 CHGBUF 

LXI 

D,CHG1 



05D9 

CD820C 

GALL 

STRINGF 



05DC 

CD8F02 GETOPT 

GALL 

CONIO 



05DF 

GADC05 

JZ 

GETOPT 



05E2 

FE41 

CPI 

41H 



05E4 

GAFA05 

JZ 

GOTA 



05E7 

FE42 

CPI 

42H 



05E9 

GA0806 

JZ 

GOTB 



05EC 

3E00 

MVI 

A,00 



05EE 

323D0G 

STA 

BFSIZE 



05F1 

11A707 

LXI 

D,CMSG 



05F4 

GD820G 

CALL 

STRINGF 



05F7 

G30D02 

JMP 

TERM2 



05FA 

3E01 GOTA 

MVI 

A, 01 



05FC 

323D0G 

STA 

BFSIZE 



05FF 

117907 

LXI 

D,AMSG 



0602 

GD820G 

CALL 

STRINGF 



0605 

G30D02 

JMP 

TERM2 



0608 

3E80 GOTB 

MVI 

A,80H 



060A 

323D0G 

STA 

BFSIZE 



06 OD 

119007 

LXI 

D^BMSG 



0610 

GD820G 

CALL 

STRINGF 



0613 

G30D02 

JMP 

TERM2 



0616 

0D0A0A5345GHG1 

DB 

CR,LF,LF,‘SELECT THE SIZE OF THE RECEIVING* 

0639, 

2042554646 

DB 

* BUFFER BY 

TYPING THE LETTER REPRESENTING‘,CR,LF 

0664 

594F555220 

DB 

•YOUR CHOICE 

IN THE FOLLOWING TABLE.*,CR,LF,LF,LF 

068B 

53454G4543 

DB 

‘SELECTION 

BUFFER SIZE FOR SYSTEMS‘,CR,LF 

06BC 

2020202020 

DB 


(IN CP/M SECTORS) 

WITH*,CR,LF,LF 

G6EA 

2020204120 

DB 

‘ A 

1 

32K RAM*,CR,LF 

0719 

2020204220 

DB 

‘ B 

128 

48K RAM*,CR,LF 

0748 

2020204320 

DB 

* C (DEFAULT) 256 

64K RAM‘,CR,LF 

0777 

0A24 

DB 

LF,‘$* 



0779 

4F5054494FAMSG 

DB 

. ‘OPTION A 

SELECTED.*,CR,LF,•$• 


0790 

4F5054494FBMSG 

DB 

‘OPTION B 

SELECTED.‘,CR,LF,‘$‘ 


07A7 

4F5054494FCMSG 

DB 

‘OPTION G 

SELECTED.‘,CR,LF,‘$‘ 


07BE 

0655 VAXHST 

MVI 

B,55H 

;MOVE VAXMSG BLOCK TO 


07C0 

216001 

LXI 

H,VAXMSG 

;HOSTBF BLOCK AND THEN 


07G3 

llOBOl 

LXI 

D,HOSTBF 

;GO TO TERM2. 


07C6 

7E MOVBYT 

MOV 

A,M 



07C7 

EB 

XCHG 




07C8 

77 

MOV 

M,A 



07C9 

05 

DCR 

B 



07CA 

FEOO 

CPI 

00 



07CC 

GAD507 

JZ 

VAXHl 



07CF 

13 

INX 

D 



07D0 

23 

INX 

H 



07D1 

EB 

XCHG 




07D2 

G3C607 

JMP 

MOVBYT 


' 

07D5 

11DE07 VAXHl 

LXI 

D,VAXMOD 

;INDICATE MODE 

IS VAX 

07D8 

GD820G 

CALL 

STRINGF 



^7DB 

G3^0]O2 

JMP 

TERM2 



07DE 

5641582D31VAXMOD 

DB 

‘VAX-11 MODE 

.‘,CR,LF,LF,‘$‘ 


07EE 

3A1F03 PRINTR 

LDA 

AUXON 

;TOGGLE PRINTER OFF/ON 


07F1 

EE 01 

XRI 

OlH 



07F3 

321F03 

STA 

AUXON 



07F6 

C33G03 

JMP 

LOCAL 










RECEIVE A FILE FROM HOST 
ESTABLISH STATE 
LOOP FOR EACH CHAR 
CHECK CONSOLE 

ESC - 

GET CHAR FROM HOST 

NONE —- 

END OF FILE - 

WRITE CHAR TO MEMORY 
MANAGE BUFFER 
COUNT CHARS IN SECTOR 
WHEN NECESSARY, WRITE SECTOR 
HOST WAIT 

DISK WRITE 
HOST CONTINUE 

CLOSE FILE 


07F9 

3E01 

RECEIVE 

MVI 

A,01 

;TURN PRINTER OFF 

07FB 

321F03 


STA 

AUXON 


07FE 

CDFC09 


CALL 

GETFN 

;GET FILE NAME 

0801 

115C00 


LX I 

D,FCB 


0804 

CD8C0C 


CALL 

OPENFIF 


0807 

FEFF 


CPI 

OFFH 


0809 

CA1808 


JZ 

REC2 

;IF FILE IS NEW 

08 OC 

112C08 


LXI 

D,EXISTM 

;FILE EXISTS. 

08 OF 

CD820C 


CALL 

STRINGF 

;WARN 

0812 

115C00 


LXI 

D,FCB 

;AND DELETE OLD ONE 

0815 

CD960C 


CALL 

DELETEF 


0818 

115C00 

REC2 

LXI 

D,FCB 


081B 

CDA50C 


CALL 

MAKEFIF 


081E 

FEFF 


CPI 

OFFH 


0820 

C26D08 


JNZ 

REC7 

;IF MAKE WAS SUCCESSFUL 

0823 

114708 


LXI 

D,FULLMSG 


0826 

CD820C 


CALL 

STRINGF 


0829 

C33C03 


JMP 

LOCAL 


082C 

070D0A4558EXISTM 

DB 

BEL,CR,LF, 

•EXISTING FILE DELETED*,CR,LF,*$* 

0847 

0 7 OD 0A4 44 9FULLMSG 

DB 

BEL,CR,LF, 

•DIRECTORY FULL. ACTION CANCELLED.$• 

08 6D 

110901 

REC7 

LXI 

D,CRMSG 


0870 

CD870A 


CALL 

MSGHOST 


0873 

CD4F0C 

REC4 

CALL 

RDRINPF ;WAIT FOR ECHO OF CR SENT TO START TRANSMISSION 

0876 

FEOD 


CPI 

CR 


0878 

C27308 


JNZ 

REC4 


087B 

CD8F02 

REC3 

CALL 

CONIO 

;LOOP FOR EACH CHAR 

087E 

FEIA 


CPI 

EOD 

;TO TERMINATE TRANSMISSION 

0880 

CAAB08 


JZ 

RECEOD 

;IF ESCAPE, ELSE IGNOR 

0883 

CD4F0C 


CALL 

RDRINPF 

;WAIT FOR CHAR 

0886 

CA7B08 


JZ 

REC3 

;IF NOTHING WAS RECEIVED 

0889 

FEIA 


CPI 

HSTEOD 


088B 

CAAB08 


JZ 

RECEOD 

;IF END OF FILE 

088E 

F5 


PUSH 

PSW 


088F 

CD9602 


CALL 

PRNT 

;ECHO TO CONSOL 

0892 

FI 


POP 

PSW 


0893 

F5 


PUSH 

PSW 


0894 

CDBCOA 


CALL 

WRTMEMF 


0897 

C23C03 


JNZ 

LOCAL 

;IF WRITE WAS NOT SUCCESSFUL 

089A 

FI 


POP 

PSW 


089B 

FEOD 


CPI 

CR 


089D 

C27B08 


JNZ 

REC3 


08A0 

3E0A 


MVI 

A,LF 


08A2 

CDBCOA 


CALL 

WRTMEMF 


08A5 

C23C03 


JNZ 

LOCAL 












END OF TRANSMISSION. CLOSE 


08AB 

115601 

RECEOD 

LXI 

D,HNOSND 

;END OF TRANSMISSION. 

08AE 

CD870A 


CALL 

MSGHOST 


08B1 

3E1A 


MVI 

A, EOD 

?CP/M END OF FILE 

08B3 

ODBC0A 


CALL 

WRTMEMF 


08B6 

C33C03 

7 

JMP 

LOCAL 




; SEND 

A FILE 

FROM TERMINAL 

TO HOST 


ESTABLISH STATE 
OPEN FILE 
SEND START SIGNAL 

LOOP FOR EACH LOGICAL SECTOR (128 BYTES) 
READ SECTOR FROM DISK 
LOOP FOR EACH OF 128 CHARS 
GET CHAR FROM MEMORY 
LF? -— 

CR? - 

TAB? - 

EOD? - 

IWALID? - 

SEND CHAR TO HOST 

IF RESPONSE, THEN XOFF? -- 

ELSE ECHO RESPONSE 
CHECK CONSOLE 

ESC - 

EOD OR ESC; CLOSE FILES 


08 B 9 

3E01 

SEND 

MVI 

A, 01 

;TURN PRINTER OFF 

08BB 

321F03 


STA 

AUXON 


08BE 

CDFC09 


CALL 

GETFN 


08C1 

115C00 


LXI 

D,FCB 


08C4 

CD8C0C 


CALL 

OPENFIF 

;OPEN SOURCE FILE 

08C7 

FEFF 


CPI 

OFFH 


08C9 

CAB309 


JZ 

SENDNOT 

;IF FILE NOT FOUND 

08CC 

111001 


LXI 

D,HREC 

;SET HOST TO RECEIVE A FILE 

08 CF 

CD870A 


CALL 

MSGHOST 

' 

08D2 

llOOOF 

SENDLl 

LXI 

D,BUFF 

;LOOP FOR EACH SECTOR 

OSDS 

D5 


PUSH 

D 

;BUFF REAPPEARS IN HL 

08D6 

CDAAOC 


CALL 

SETDMAF 


08D9 

115C00 


LXI 

D,FCB 


08DC 

CD9B0C 


CALL 

READSQF 


08DF 

B7 


ORA 

A 


08E0 

CAE808 


JZ 

SENDL7 

;IF NOT END OF FILE 

08E3 

C5 


PUSH 

B 

;FILL STACK TO BE CLEARED 

08E4 

C5 


PUSH 

B 

;IN SENDOED 

08E5 

C3A809 


JMP 

SENDEOD 


08E8 

0681 

SENDL7 

MVI 

B,129 

;INITIALIZE LOOP COUNTER 

08EA 

C5 


PUSH 

B 


08EB 

Cl 

SENDL2 

POP 

B 

;LOOP FOR EACH CHAR 

08EC 

El 


POP 

H 


08ED 

05 


DCR 

B 


08EE 

AF 


XRA 

A 


08EF 

80 


ADD 

B 

;DONE WITH THIS SECTOR? 

08F0 

CAD208 


JZ 

SENDLl 

;GET NEXT SECTOR 

08F3 

7E 


MOV 

A,M 

;GET CHAR FROM MEMORY 

08F4 

23 


INX 

H 


08F5 

E5 


PUSH 

H 


08F6 

C5 


PUSH 

B 


08F7 

E67F 


ANI 

7FH 

;GUARANTEE VALID ASCII CHAR 

08F9 

5F 


MOV 

E,A 


08FA 

FEOA 


CPI 

LF 













CLEAR STACK 






09B6 CD820C 
09B9 C33C03 


CALL 

JMP 


STRINGP 

LOCAL 






0A5A El 

GETFNLIF POP 

H 


0A5B 010800 

LXI 

B,8 


0A5E 09 

DAD 

B 


0A5F 13 

INX 

D 


0A60 0E03 

MVI 

C,3 


0A62 lA 

GETFNL2 LDAX 

D 

;EXTENSION 

0A63 FE20 

CPI 

1 t 


0A65 C8 

RZ 



0A66 FE41 

CPI 

•A* 


0A68 FA6D0A 

JM 

■ GETFN4 

;IF NOT LOWER CASE 

0A6B E65F 

ANI 

5FH 


0A6D 77 

GETFN4 MOV 

M,A 


0A6E 13 

INX 

D 


0A6F 23 

INX 

H 


0A70 OD 

DCR 

C 


0A71 C2620A 

JNZ 

GETFNL2 


0A74 C9 

RET 



0A75 0E00313233GETFNRB DB 

14,0,*1234567890123456' 

0A77 = 

GETFNR EQU 

GETFNRB+2 



MSGHOST; SEND MESSAGE TO THE HOST 

DE POINTS TO THE MESSAGE (MUST END IN A $) 


0A87 

D5 

MSGHOST PUSH 

D 


0A88 

D1 

MSGLl POP 

D 


0A89 

lA 

LDAX 

D 


0A8A 

13 

INX 

D 


0A8B 

FE24 

CPI 



0A8D 

C8 

RZ 


;END OF MESSAGE 

0A8E 

D5 

PUSH 

D 


0A8F 

5F 

MOV 

E,A 


0A90 

CD660C 

CALL 

PUNOUTF 

;SEND CHAR TO HOST 

0A93 

CD4F0C 

CALL 

RDRINPF 

;HAS HOST SENT ANYTHING 

0A96 

CA880A 

JZ 

MSGLl ;IF NOTHING RECEIVED 

0A99 

CD9602 

CALL 

PRNT 

;ECHO RECEIVED CHAR 

0A9C 

C3880A 

JMP 

• 

• 

; FILLF 

• 

; ENTRY: 

• 

/ 

• 

MSGLl 

FILL MEMORY WITH CHAR 

(A) CHAR TO BE FILLED 

(C) NUMBER OF LOCATIONS TO BE FILLED 

(HL) BEGINNING ADDRESS 

0A9F 

77 

FILLF MOV 

M,A 


OAAO 

23 

INX 

H 


OAAl 

OD 

DCR 

C 


0AA2 

0AA5 

C29F0A 

C9 

JNZ FILLF 

RET 

7 

♦ 

; DELAYF: DEIJVY FOR A WHILE. 

(A) CONTAINS COUNTER 

0AA6 

0AA7 

3D 

C8 

DELAYF DCR 

RZ 

A 


0AA8 

C5 

PUSH 

B 


0AA9 

0620 

MVI 

B,20H 


OAAB 

05 

DELI DCR 

B 


OAAC 

CAB80A 

JZ 

DEL2 


OAAF 

2AFA09 

LHLD 

NDELAY 


0AB2 

22FA09 

SHLD 

NDELAY 


0AB5 

C3AB0A 

JMP 

DELI 


0AB8 

ft 

Cl 

DEL2 POP 

B 









WRTMEMF; HANDLE WRITING A CHAR IN REGISTER A TO MEMORY 
AND TO DISK. 

ASSUMES DISK FILE HAS ALREADY BEEN OPENED. 

IF (A) = EOD ( DISK FILE IS CLOSED 

RETURNS (A) = 0 IF SUCCESSFUL, 0 OTHERWISE 


OABC 

2A330C 

WRTMEMF 

LHLD 

MEMADD 


OABF 

77 


MOV 

M,A 


OACO 

23 


INX 

H 


OACl 

22330C 


SHLD 

MEMADD 


0AC4 

FEIA 


CPI 

EOD 


0AC6 

CA7A0B 


JZ 

MEMCLOS 

;IF END OF FILE 

0AC9 

3A390C 


LDA 

MEMCNT 

;MEMORY COUNT 0 .. 128 

OACC 

C601 


7U)I 

1 


OACE 

FE80 


CPI 

80H 


OADO 

CAD80A 


JZ 

SECFUL 

;IF LOGICAL SECTOR IS FULL 

0AD3 

32390C 


STA 

MEMCNT 


0AD6 

AF 


XRA 

A 

;SUCCESS 

0AD7 

C9 


RET 



0AD8 

3A3D0C 

SECFUL 

LDA 

BFSIZE 


OADB 

47 


MOV 

B,A 


OADC 

3A3AOC 


LDA 

SECNT 

;LOGICAL SECTOR FULL 

OADF 

C601 


ADI 

1 

;INCREMENT SECTOR COUNTER 

OAEl 

B8 


CMP 

B 


0AE2 

GA260B 


JZ 

BUFFUL 

;IF BUFFER FULL 

0AE5 

323A0C 


STA 

SECNT 


0AE8 

AF ^ 


XRA 

A 

;RESET CHAR COUNTER 

0AE9 

32390C 


STA 

MEMCNT 


OAEC 

C9 


RET 



OAED 

07 0D0A5 3 4FBFLMSG 

DB 

BEL,CR,LF, 

'SOURCE FILE IS TOO LARGE.' 

0B09 

0D0A444553 

DB 

CR,LF,'DESTINATION FILE CLOSED.',CR,LF,'$' 

0B26 

CDEE02 

BUFFUL 

CALL 

STOPHST 

;HOST MUST STOP SENDING 

0B29 

3A3B0C 


LDA 

BFFL 

?SET BUFFER FULL FLAG 

0B2C 

3C 


INR 

A 

J 

0B2D 

323B0C 


STA 

BFFL 

0B30 

21000D 


LXI 

H,OVFLBF 

;PREPARE FOR OVERFLOW 

0B33 

22370C 


SHLD 

OVBFAD 


0B36 

3E00 

GETSTRG 

MVI 

A,0 

;GET STRAGGLERS UNTIL TIMED 

0B38 

323E0C 


STA 

TIMEl 


0B3B 

3E1F 


MVI 

A,1FH 


0B3D 

323F0C 


STA 

TIME2 


0B40 

CD4F0C 

GETl 

CALL 

RDRINPF 


0B43 

FEOO 


CPI 

0 


0B45 

C25F0B 


JNZ 

GOTIT 


0B48 

3A3E0C 


LDA 

TIMEl 


0B4B 

3D 


DCR 

A 


0B4C 

323E0C 


STA 

TIMEl 


0B4F 

C2400B 


JNZ 

GETl 


0B52 

3A3F0C 


LDA 

TIME2 


0B55 

3D 


DCR 

A 


0B56 

323F0C 


STA 

TIME2 


0B59 

C2400B 


JNZ 

GETl 


0B5C 

C37A0B 


JMP 

MEMCLOS 

;ASSUME NO MORE COMING 

0B5F 

2A370C 

GOTIT 

LHLD 

OVBFAD 

;PUT STRAGGLER IN OVERFLOW 

0B62 

47 


MOV 

B,A 


OB63 

77 


MOV 

M,A 


0B64 

23 


INX 

H 

;....INCREMENT COUNTERS, 

0B65 

22370C 


SHLD 

OVBFAD 






% 


m 














0B6B 

3C 


INR 

A 

0B6C 

323C0C 


STA 

OVCNT 

0B6F 

78 


MOV 

A,B 

0B70 

FEOD 


CPI 

CR 

0B72 

C2360B 


JNZ 

GETSTRG 

0B75 

3E0A 


MVI 

A,LF 

0B77 

C35F0B 


JMP 

GOTIT 

0B7A 

3A3A0C 

MEMCLOS 

LDA 

SECNT 

0B7D 

47 


MOV 

B,A 

0B7E 

04 


INR 

B 

0B7F 

2A350C 


LHLD 

BUFADD 

0B82 

22330C 


SHI.D 

MEMADD 

0B85 

3E80 

MEMLl 

MVI 

A,80H 

0B87 

2A330C 


LHLD 

MEMADD 

0B8A 

54 


MOV 

D,H 

0B8B 

5D 


MOV 

E / L 

0B8C 

83 


ADD 

E 

0B8D 

6F 


MOV 

L,A 

0B8E 

D2950B 


JNC 

MEML4 

0B91 

3E01 


MVI 

A,1 

0B93 

82 


ADD 

D 

0B94 

67 


MOV 

H,A 

0B95 

22330C 

MEML4 

SHLD 

MEMADD 

0B98 

C5 


PUSH 

B 

0B99 

CDAAOC 


CALL 

SETDMAF 

0B9C 

115C00 


LXI 

D,FCB 

0B9F 

CDAOOC 


CALL 

WRITSQF 

0BA2 

Cl 


POP 

B 

0BA3 

B7 


ORA 

A 

0BA4 

C20D0C 


JNZ 

MEML3 

0BA7 

05 


DCR 

B 

0BA8 

AF 


XRA 

A 

0BA9 

80 


ADD 

B 

OBAA 

C2850B 


JNZ 

MEMLl 

OBAD 

3A3B0C 

9 

LDA 

BFFL 

OBBO 

FEOO 


CPI 

OOH 

0BB2 

CAF70B 


JZ 

MEML2 

0BB5 

AF 


XRA 

A 

0BB6 

323B0C 


STA 

BFFL 

0BB9 

323A0C 


STA 

SECNT 

OBBC 

32390C 


STA 

MEMCNT 

OBBF 

2A350C 


LHLD 

BUFADD 

0BC2 

22330C 


SHLD 

MEMADD 

0BC5 

3A3C0C 


LDA 

OVCNT 

0BC8 

FEOO 


CPI 

0 

OBCA 

CAEFOB 


JZ 

HOSTGO 

OBCD 

3A3C0C 


LDA 

OVCNT 

OBDO 

47 


MOV 

B,A 

OBDl 

21000D 


LXI 

H,OVFLBF 

0BD4 

EB 


XCHG 


0BD5 

2A330C 


LHLD 

MEMADD 

0BD8 

lA 

MOVE 

LDAX 

D 

0BD9 

FEIA 


CPI 

EOD 

OBDB 

CA7A0B 


JZ 

MEMCLOS 

OBDE 

77 


MOV 

M,A 

OBDF 

23 


INX 

H 

OBEO 

22330C 


SHLD 

MEMADD 

0BE3 

13 


INX 

D 

0BE4 

3A390C 


LDA 

MEMCNT 

0BE7 

3C 


INR 

A 

QBE 8 

32390C 


STA 

MEMCNT 

OBEB 

05 


DCR 

B 

OBEC 

C2D80B 


JNZ 

MOVE 


;...,AND INSERT LINE FEEDS 
; AFTER CARRIAGE RETURNS 


WRITE MEMORY BUFFER TO DISK 
AND CLOSE DESTINATION FILE 
(WE COUNTED FROM 0) 

(B) COUNTS DOWN LOGICAL SECTORS 
RESET ADDRESS OF MEMORY BUFFER 
INCREMENT MEMADD BY 8OH 
BYTES WRITTEN PER SECTOR 


;IF DISK FULL 


;IF NOT ALL SECTORS ARE WRITTEN 

;HOW DID WE GET HERE? 

BECAUSE OF EOF 
BECAUSE OF FULL BUFFER 
;INDICATE BUFFER NOT FULL 
;ZERO SECTOR COUNT 
; AND CHAR COUNT 
;RESET ADDRESS OF MEMORY BUFFER 

;ARE THERE ANY 
OVERFLOW CHARACTERS? 

;NO 

;YES...SO MOVE THEM INTO 
? THE RECEIVER BUFFER. 


;OOPS..END OF DATA IN OVERFLOW 








! 











0BF2 

AF 



XRA 

A 

0BF3 

323C0C 



STA 

OVCNT ;ZERO OVERFLOW COUNT 

0BF6 

C9 



RET 


0BF7 

115C00 

I 

4EML2 

LXI 

D,FCB ;DONE WRITING. CLOSE FILE 

OBFA 

CD910C 



CALL 

CLOSEFF 

OBFD 

AF 



XRA 

A ;RESET ALL COUNTERS AND ADDRESSES 

OBFE 

32390C 



STA 

MEMCNT 

OCOl 

323A0C 



STA 

SECNT 

0C04 

2A350C 



LHLD 

BUFADD 

0C07 

22330C 



SHLD 

MEMADD 

OCOA 

C601 



ADI 

1 ;FORCE FLAG 

OCOC 

C9 



RET 


OCOD 

11160C 

I 

4EML3 

LXI 

D,LOSTMG ;DISK FULL 

OCIO 

CD820C 



CALL 

STRINGF 

OC13 

C3F70B 



JMP 

MEML2 

0C16 

070D0A4449LOSTMG 

DB 

BEL,CR,LF,'DISK FULL. FILE CLOSED*,CR,LF,'$' 

0C33 

OOOF 

f 

^EMADD 

DW 

BUFF 

0C35 

OOOF 


BUFADD 

DW 

BUFF 

0C37 

OOOD 

( 

3VBFAD 

DW 

OVFLBF 

OC39 

00 


4EMCNT 

DB 

0 

OC3A 

00 

< 

1 

3ECNT 

DB 

0 

0C3B 

00 

] 

3FFL , 

DB 

0 

0C3C 

00 


3VCNT 

DB 

0 

0C3D 

00 


3FSIZE 

DB 

OOH ;INITIALIZED FOR 256 SECTORS 

0C3E 

00 


riMEl 

DB 

0 

0C3F 

00 


FIME2 

» 

f 

DB 

0 




FUNCTION 1: 

CONSOLE INPUT 




f 

» 

f 

RETURN; 

(A) = ASCII CHARACTER 

0C40 

DBED 

( 

:ONINPF 

IN 

3 50Q+5 

0C42 

E601 



ANI 

1 

0C44 

CA400C 



JZ 

CONINPF 

0C47 

DBE8 



IN 

350Q 

0C49 

C9 



RET 





'CONINPF 

MVI C,1 




' 

’ 

JMP 

BDOS 




' 

FUNCTION 2: 

CONSOLE OUTPUT 




f 

ENTRY: 

(E) = ASCII CHARACTER 

0C4A 

0E02 

( 

:ONOUTF 

MVI 

C,2 

0C4C 

C30500 



JMP 

BDOS 




FUNCTION 3: 

READER INPUT 




f 

RETURN: 

(A) = ASCII CHARACTER 




•RDRINPF IN 

3300+5 





ANI 

1 





RZ 






IN 

330Q 





ANI 

7FH 

0C4F 

0E03 

I 

RDRINPF 

MVI 

C,3 

0C51 

CD0500 



CALL 

BDOS 











0C56 

JZi o / x 

C8 


tXViJu 

RZ 

f jc n 

0C57 

FE7F 


CPI 

DEL 

0C59 

CA640C 


JZ 

IGNOR 

0C5C 

FE07 


CPI 

BEL 

0C5E 

CA64 0C 


JZ 

IGNOR 

0C61 

0C63 

FEOA 

CO 


CPI 

RNZ 

LF 

0C64 

AF 

IGNOR 

XRA 

A 

0C65 

C9 

• 

9 

9 

RET 



yQxrs.ixr jrz^j:\xxx JOXi 





0 


0C66 0E04 
0C68 C30500 


0C6B DBDD 
0C6D E620 
0C6F C9 


0C70 0E05 
0C72 C30500 


0C75 DB41 
0C77 E601 
0C79 C9 


0C7A DBED 
0C7C E601 
0C7E C8 
0C7F DBE8 


FUNCTION 4; 
ENTRY; 

PUNOUTF IN 
AN I 
JZ 
MOV 
OUT 
RET 

PUNOUTF MVI 
JMP 

PUNCH STATUS 


PUNCH OUTPUT 

(E) = ASCII CHARACTER 

330Q+5 

20H 

PUNOUTF 

A,E 

330Q 

C,4 

BDOS 


PUNSTAT IN 
ANI 
RET 


330Q+5 
2 OH 


If"' 




2> 








FUNCTION 5; LIST OUTPUT 
ENTRY: (E) = ASCII CHARACTER 


LSTOUTF MVI C,5 

JMP BDOS - 

CHECK PRINTER^S;PATUS 

PRTSTAT IN / A01 ^ 

ANI / 'Oiif' 2.0 >/ 


FUNCTION 6: 
ENTRY: 
RETURN: 






IKf (o 

R,jr 

I O 



CONS OLE. X/g—^ 


DIRCONF 


IF 

I 

CALL 
RZ 
MVI 
CALL 
END IF 


DIRCONF IN 
ANI 
RZ 
IN 


(E) = OFFH FOR INPUT FROM CONSOLE 

= ASCII CHAR FOR OUTPUT TO CONSOLE 
(A) = ASCII CHAR, IF ANY 

= 00 IF NO CHAR WAS ENTERED 

BDOS VERSION DOES NOT SUPPORT FUNCTION 6 
MVI C,ll ;GET CONSOLE STATUS 

BDOS 

;NOTHING WAITING 

C,1 ;CONSOLE READ (BETTER IF NO ECHO) 

BDOS 


3500+5 

1 


a 




3 50Q 













uc«± cy 




DIRCONF MVI C,e 

JMP BDOS 


; FUNCTION 9: PRINT STRING 

• 

; ENTRY: (DE) = ADDRESS OF MESSAGE 

; MESSAGE MUST END WITH *$* 

0C82 0E09 STRINGF MVI C,9 

0C84 C30500 JMP BDOS 


; FUNCTION 10: READ CONSOLE BUFFER 

; ENTRY: (DE) = BUFFER ADDRESS 

; RETURN: ((DE)) = CONSOLE CHARACTERS 

0C87 OEOA READCNF MVI C,10 

0C89 C30500 JMP BDOS 


; FUNCTION 15: OPEN FILE 

; ENTRY: (DE) = FCB ADDRESS 

RETURN: (A) = 0 - 3 IF SUCCESS, OFFH OTHERWISE 

0C8C OEOF OPENFIF MVI C,15 

0C8E C30500 JMP BDOS 


; FUNCTION 16: CLOSE FILE 

; ENTRY: (DE) = FCB ADDRESS 

RETURN: (A) = 0 - 3 IF SUCCESS, OFFH OTHERWISE 

0C91 OEIO CLOSEFF MVI C,16 

0C93 C30500 JMP BDOS 


; FUNCTION 19: DELETE FILE 
7 

; ENTRY: (DE) = FCB ADDRESS 

; RETURN: (A) = 0 - 3 IF SUCCESS, OFFH OTHERWISE 

0C96 0E13 DELETER MVI C,19 

0C98 C30500 JMP BDOS 


; FUNCTION 20: READ SEQUENTIAL 

ENTRY: (DE) = FCB ADDRESS 

; RETURN: (A) = 0 IF SUCCESS, ELSE NONZERO 

0C9B 0E14 READSQF MVI C,20 

0C9D C30500 JMP BDOS 


; FUNCTION 21: WRITE SEQUENTIAL 

; ENTRY; ' (DE) = FCB ADDRESS 

RETURN; (A) * 0 IF SUCCESS, ELSE NONZERO 

QCAO 0E15 WRITSQF MVI Cy21__ _ 













UJUDUU^, JMF BD05 


; FUNCTION 22; MAKE FILE - OPEN FOR OUTPUT 
; ENTRY; (DE) = FCB ADDRESS 

; RETURN; (A) = 0 - 3 IF SUCCESS, ELSE OFFH 

0CA5 0E16 MAKEFIF MVI C,22 

0CA7 C30500 JMP BDOS 


; FUNCTION 26; SET DMA ADDRESS 

• 

; .ENTRY; (DE) = DMA ADDRESS 

; 

OCAA OEIA SETDMAF MVI C,26 

OCAC C30500 IJMP BDOS 


OCAF 


END 








